module Data 	( Data,
		data_fromString,
		data_toString,
		data_length
		)

where
data Data = Value String Int
	deriving Show

data_fromString :: String -> Data
data_fromString st = Value st (length st)

data_toString :: Data -> String
data_toString (Value xs x) = xs

data_length :: Data -> Int
data_length (Value xs x) = length xs
